Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / io / tell.t < prev

MacBinary | 1992-01-05 | 1.9 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	E-Tracker Chiptune `(music/eTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Simis `(archive/simis)`	ext	Unsupported
`1%`	dexvert	TADS `(other/tads)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jan 5 15:43:44 1992, modified Sun Jan 5 15:43:44 1992, creator 'MPS ', type ASCII, 1154 bytes "tell.t"	default (weak)
`99%`	file	a ./perl script executable (binary data), at 0x502 428 bytes resource	default (weak)
`98%`	file	a ./perl script executable (binary data)	default (weak)
`97%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 74 65 6c 6c 2e 74 | 00 00 00 00 00 00 00 00 |..tell.t|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 82 00 | 00 01 ac a5 8d 1e 80 a5 |........|........|
|00000060| 8d 1e 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d2 20 00 00 |........|..... ..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 74 65 6c | 6c 2e 74 2c 76 20 34 2e |der: tel|l.t,v 4.|
|000000a0| 30 20 39 31 2f 30 33 2f | 32 30 20 30 31 3a 35 31 |0 91/03/|20 01:51|
|000000b0| 3a 31 34 20 6c 77 61 6c | 6c 20 4c 6f 63 6b 65 64 |:14 lwal|l Locked|
|000000c0| 20 24 0d 0d 70 72 69 6e | 74 20 22 31 2e 2e 31 33 | $..prin|t "1..13|
|000000d0| 5c 6e 22 3b 0d 0d 24 54 | 53 54 20 3d 20 27 74 73 |\n";..$T|ST = 'ts|
|000000e0| 74 27 3b 0d 0d 6f 70 65 | 6e 28 24 54 53 54 2c 20 |t';..ope|n($TST, |
|000000f0| 27 3a 3a 4d 61 6b 65 66 | 69 6c 65 27 29 20 7c 7c |'::Makef|ile') |||
|00000100| 20 28 64 69 65 20 22 43 | 61 6e 27 74 20 6f 70 65 | (die "C|an't ope|
|00000110| 6e 20 3a 3a 4d 61 6b 65 | 66 69 6c 65 22 29 3b 0d |n ::Make|file");.|
|00000120| 0d 69 66 20 28 65 6f 66 | 28 74 73 74 29 29 20 7b |.if (eof|(tst)) {|
|00000130| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 31 | print "|not ok 1|
|00000140| 5c 6e 22 3b 20 7d 20 65 | 6c 73 65 20 7b 20 70 72 |\n"; } e|lse { pr|
|00000150| 69 6e 74 20 22 6f 6b 20 | 31 5c 6e 22 3b 20 7d 0d |int "ok |1\n"; }.|
|00000160| 0d 24 66 69 72 73 74 6c | 69 6e 65 20 3d 20 3c 24 |.$firstl|ine = <$|
|00000170| 54 53 54 3e 3b 0d 24 73 | 65 63 6f 6e 64 70 6f 73 |TST>;.$s|econdpos|
|00000180| 20 3d 20 74 65 6c 6c 3b | 0d 0d 24 78 20 3d 20 30 | = tell;|..$x = 0|
|00000190| 3b 0d 77 68 69 6c 65 20 | 28 3c 74 73 74 3e 29 20 |;.while |(<tst>) |
|000001a0| 7b 0d 20 20 20 20 69 66 | 20 28 65 6f 66 29 20 7b |{.    if| (eof) {|
|000001b0| 24 78 2b 2b 3b 7d 0d 7d | 0d 69 66 20 28 24 78 20 |$x++;}.}|.if ($x |
|000001c0| 3d 3d 20 31 29 20 7b 20 | 70 72 69 6e 74 20 22 6f |== 1) { |print "o|
|000001d0| 6b 20 32 5c 6e 22 3b 20 | 7d 20 65 6c 73 65 20 7b |k 2\n"; |} else {|
|000001e0| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 32 | print "|not ok 2|
|000001f0| 5c 6e 22 3b 20 7d 0d 0d | 24 6c 61 73 74 70 6f 73 |\n"; }..|$lastpos|
|00000200| 20 3d 20 74 65 6c 6c 3b | 0d 0d 75 6e 6c 65 73 73 | = tell;|..unless|
|00000210| 20 28 65 6f 66 29 20 7b | 20 70 72 69 6e 74 20 22 | (eof) {| print "|
|00000220| 6e 6f 74 20 6f 6b 20 33 | 5c 6e 22 3b 20 7d 20 65 |not ok 3|\n"; } e|
|00000230| 6c 73 65 20 7b 20 70 72 | 69 6e 74 20 22 6f 6b 20 |lse { pr|int "ok |
|00000240| 33 5c 6e 22 3b 20 7d 0d | 0d 69 66 20 28 73 65 65 |3\n"; }.|.if (see|
|00000250| 6b 28 24 54 53 54 2c 30 | 2c 30 29 29 20 7b 20 70 |k($TST,0|,0)) { p|
|00000260| 72 69 6e 74 20 22 6f 6b | 20 34 5c 6e 22 3b 20 7d |rint "ok| 4\n"; }|
|00000270| 20 65 6c 73 65 20 7b 20 | 70 72 69 6e 74 20 22 6e | else { |print "n|
|00000280| 6f 74 20 6f 6b 20 34 5c | 6e 22 3b 20 7d 0d 0d 69 |ot ok 4\|n"; }..i|
|00000290| 66 20 28 65 6f 66 29 20 | 7b 20 70 72 69 6e 74 20 |f (eof) |{ print |
|000002a0| 22 6e 6f 74 20 6f 6b 20 | 35 5c 6e 22 3b 20 7d 20 |"not ok |5\n"; } |
|000002b0| 65 6c 73 65 20 7b 20 70 | 72 69 6e 74 20 22 6f 6b |else { p|rint "ok|
|000002c0| 20 35 5c 6e 22 3b 20 7d | 0d 0d 69 66 20 28 24 66 | 5\n"; }|..if ($f|
|000002d0| 69 72 73 74 6c 69 6e 65 | 20 65 71 20 3c 74 73 74 |irstline| eq <tst|
|000002e0| 3e 29 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 36 |>) { pri|nt "ok 6|
|000002f0| 5c 6e 22 3b 20 7d 20 65 | 6c 73 65 20 7b 20 70 72 |\n"; } e|lse { pr|
|00000300| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 36 5c 6e 22 |int "not| ok 6\n"|
|00000310| 3b 20 7d 0d 0d 69 66 20 | 28 24 73 65 63 6f 6e 64 |; }..if |($second|
|00000320| 70 6f 73 20 3d 3d 20 74 | 65 6c 6c 29 20 7b 20 70 |pos == t|ell) { p|
|00000330| 72 69 6e 74 20 22 6f 6b | 20 37 5c 6e 22 3b 20 7d |rint "ok| 7\n"; }|
|00000340| 20 65 6c 73 65 20 7b 20 | 70 72 69 6e 74 20 22 6e | else { |print "n|
|00000350| 6f 74 20 6f 6b 20 37 5c | 6e 22 3b 20 7d 0d 0d 69 |ot ok 7\|n"; }..i|
|00000360| 66 20 28 73 65 65 6b 28 | 74 73 74 2c 30 2c 31 29 |f (seek(|tst,0,1)|
|00000370| 29 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 38 5c |) { prin|t "ok 8\|
|00000380| 6e 22 3b 20 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |n"; } el|se { pri|
|00000390| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 38 5c 6e 22 3b |nt "not |ok 8\n";|
|000003a0| 20 7d 0d 0d 69 66 20 28 | 65 6f 66 28 24 54 53 54 | }..if (|eof($TST|
|000003b0| 29 29 20 7b 20 70 72 69 | 6e 74 20 22 6e 6f 74 20 |)) { pri|nt "not |
|000003c0| 6f 6b 20 39 5c 6e 22 3b | 20 7d 20 65 6c 73 65 20 |ok 9\n";| } else |
|000003d0| 7b 20 70 72 69 6e 74 20 | 22 6f 6b 20 39 5c 6e 22 |{ print |"ok 9\n"|
|000003e0| 3b 20 7d 0d 0d 69 66 20 | 28 24 73 65 63 6f 6e 64 |; }..if |($second|
|000003f0| 70 6f 73 20 3d 3d 20 74 | 65 6c 6c 29 20 7b 20 70 |pos == t|ell) { p|
|00000400| 72 69 6e 74 20 22 6f 6b | 20 31 30 5c 6e 22 3b 20 |rint "ok| 10\n"; |
|00000410| 7d 20 65 6c 73 65 20 7b | 20 70 72 69 6e 74 20 22 |} else {| print "|
|00000420| 6e 6f 74 20 6f 6b 20 31 | 30 5c 6e 22 3b 20 7d 0d |not ok 1|0\n"; }.|
|00000430| 0d 69 66 20 28 73 65 65 | 6b 28 74 73 74 2c 30 2c |.if (see|k(tst,0,|
|00000440| 32 29 29 20 7b 20 70 72 | 69 6e 74 20 22 6f 6b 20 |2)) { pr|int "ok |
|00000450| 31 31 5c 6e 22 3b 20 7d | 20 65 6c 73 65 20 7b 20 |11\n"; }| else { |
|00000460| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 31 31 |print "n|ot ok 11|
|00000470| 5c 6e 22 3b 20 7d 0d 0d | 69 66 20 28 24 6c 61 73 |\n"; }..|if ($las|
|00000480| 74 70 6f 73 20 3d 3d 20 | 74 65 6c 6c 29 20 7b 20 |tpos == |tell) { |
|00000490| 70 72 69 6e 74 20 22 6f | 6b 20 31 32 5c 6e 22 3b |print "o|k 12\n";|
|000004a0| 20 7d 20 65 6c 73 65 20 | 7b 20 70 72 69 6e 74 20 | } else |{ print |
|000004b0| 22 6e 6f 74 20 6f 6b 20 | 31 32 5c 6e 22 3b 20 7d |"not ok |12\n"; }|
|000004c0| 0d 0d 75 6e 6c 65 73 73 | 20 28 65 6f 66 29 20 7b |..unless| (eof) {|
|000004d0| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 31 | print "|not ok 1|
|000004e0| 33 5c 6e 22 3b 20 7d 20 | 65 6c 73 65 20 7b 20 70 |3\n"; } |else { p|
|000004f0| 72 69 6e 74 20 22 6f 6b | 20 31 33 5c 6e 22 3b 20 |rint "ok| 13\n"; |
|00000500| 7d 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000590| 00 00 07 be 0b 75 74 69 | 6c 2e 68 2e 6f 72 69 67 |.....uti|l.h.orig|
|000005a0| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 02 a4 |....TEXT|MPS ....|
|000005b0| 06 74 65 6c 6c 2e 74 da | 02 00 00 00 54 45 58 54 |.tell.t.|....TEXT|
|000005c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 0b |MPS ....|......v.|
|000005d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a5 8c 0c 21 00 00 | 04 82 00 00 01 ac 00 00 |.....!..|........|
|00000600| 00 00 00 00 00 00 07 be | 0b 75 74 69 6c 2e 68 2e |........|.util.h.|
|00000610| 6f 72 69 67 02 00 00 00 | 54 45 58 54 4d 50 53 20 |orig....|TEXTMPS |
|00000620| 01 00 02 a4 00 c0 00 00 | 00 00 00 96 00 00 00 00 |........|........|
|00000630| 03 52 00 00 08 00 00 00 | 00 00 01 a0 00 00 08 00 |.R......|........|
|00000640| a4 40 a7 9b a5 8b f7 91 | 00 00 00 00 00 00 00 00 |.@......|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 37 50 |........|......7P|
|00000660| 00 01 00 00 00 00 00 00 | 00 00 3f 93 00 01 00 00 |........|..?.....|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 07 be 06 75 |........|.......u|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 77 61 6c |...H..Mo|naco.wal|
|00000690| 6c 20 4c 6f 63 6b 65 64 | 20 24 0d 0d 70 72 69 6e |l Locked| $..prin|
|000006a0| 74 20 22 31 2e 2e 00 06 | 00 03 00 50 00 20 01 dd |t "1....|...P. ..|
|000006b0| 02 3d 00 50 00 20 01 dd | 02 3d a5 8c e6 40 00 00 |.=.P. ..|.=...@..|
|000006c0| 00 94 00 00 00 94 00 00 | 02 95 01 00 00 00 00 1e |........|........|
|000006d0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|000006e0| 00 00 02 95 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000700| a4 ec 07 b8 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000710| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 03 f0 ff ff 00 00 00 4c | 00 31 b0 70 00 00 00 00 |.......L|.1.p....|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+